perm filename ROMLET.POX[POX,WD] blob sn#363246 filedate 1978-06-18 generic text, type T, neo UTF8
\|\\;				Define Brick Character
\;
\⊂'000040;\;	VERREM - REM's syntax for defining macros with args 
\;
\; Macro to expand single arabic numeral(≤25) into Roman numeral
\;
\8ROMAN(NSTR)[\!ROMAN⊗NSTR⊗;]\;
\	;\∞ROMAN0[0]\;
\	;\∞ROMAN1[I]\∞ROMAN2[II]\∞ROMAN3[III]\∞ROMAN4[IV]\;
\	;\∞ROMAN5[V]\∞ROMAN6[VI]\∞ROMAN7[VII]\∞ROMAN8[VIII]\;
\	;\∞ROMAN9[IX]\∞ROMAN10[X]\∞ROMAN11[XI]\∞ROMAN12[XII]\;
\	;\∞ROMAN13[XIII]\∞ROMAN14[XIV]\∞ROMAN15[XV]\∞ROMAN16[XVI]\;
\	;\∞ROMAN17[XVII]\∞ROMAN18[XVIII]\∞ROMAN19[XIX]\;
\	;\∞ROMAN20[XX]\∞ROMAN21[XXI]\∞ROMAN22[XXII]\;
\	;\∞ROMAN23[XXIII]\∞ROMAN24X[XIV]\∞ROMAN25[XXV]\;
\;
\; Macro to expand number between 1 and 26 into upper case letter
\;
\8LETTER(NSTR)[\!LETTER⊗NSTR⊗;]\;
\	;\∞LETTER0[0]\;
\	;\∞LETTER1[A]\∞LETTER2[B]\∞LETTER3[C]\∞LETTER4[D]\∞LETTER5[E]\;
\	;\∞LETTER6[F]\∞LETTER7[G]\∞LETTER8[H]\∞LETTER9[I]\∞LETTER10[J]\;
\	;\∞LETTER11[K]\∞LETTER12[L]\∞LETTER13[M]\∞LETTER14[N]\∞LETTER15[O]\;
\	;\∞LETTER16[P]\∞LETTER17[Q]\∞LETTER18[R]\∞LETTER19[S]\∞LETTER20[T]\;
\	;\∞LETTER21[U]\∞LETTER22[V]\∞LETTER23[W]\∞LETTER24[X]\∞LETTER25[Y]\;
\	;\∞LETTER26[Z]\;
\;